my $repPoids = "./corpus_poids-lemmes/";
my $repCpt = "./corpus_comptage-lemmes/";

opendir(DIR, $repCpt) || die "Impossible d'ouvrir le dossier ./corpus_comptage-lemmes/\n";

my @files = grep { /.lemmes$/ } readdir(DIR);

closedir DIR;
my ($count, $lemme);
my %hCount = ();
$count=0;
for my $file (@files) {
	open (TT, "<$repCpt$file") || die $!;
	while (my $ligne = <TT>){
		if($ligne=~ /^(.*)\t(.*)$/){
			$lemme=$1;
			if($lemme eq "\@card\@"){print "$file\n";}
			if(exists($hCount{$lemme})){
				$hCount{$lemme}++;
			}else{
				$hCount{$lemme}=1;
			}
		}
	}
	$count++;
	close TT;
};
#sort trie par num, on fait donc $a comparé par cmp (alphabetique) avec $b
open (OUT, ">./corpus_docFreq.count") || die $!;
# on aurait pu faire N=$#hCount
print OUT "N=$count\n";
for my $k(sort { $a cmp $b } keys(%hCount)){
	print OUT "$k\t$hCount{$k}\n";
}
close OUT;
